home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / faceitun / FRENACE.ZIP / aliases.ini < prev    next >
Encoding:
INI File  |  1997-08-19  |  29.9 KB  |  574 lines
  1. [aliases]
  2. n0=/teclas {
  3. n1=  echo 6 -s ¿      %logo ííííííí ESTAS SON LAS TECLAS RAPIDAS DEL SCRITP !!!!! %logo                                                        
  4. n2=  echo 3 -s ¿================╖╖╖╖╖╖╖╖╖╖╖╖===================╖╖╖╖╖╖╖╖╖╖======================╖╖╖╖╖╖╖╖╖╖╖╖====================¿
  5. n3=  echo 2 -s ¿ F1 4Arranca la ayuda... Te servirß de mucho... ;/
  6. n4=  echo 2 -s ¿ F2 4Pone un texto con marco de color.
  7. n5=  echo 2 -s ¿ F3 4Sirve para hablar en griego ;)
  8. n6=  echo 2 -s ¿ F4 4Habla de colorines...
  9. n7=  echo 2 -s ¿ F5 4Kickea a todos los clonos del canal.
  10. n8=  echo 2 -s ¿ F6 4Hace un WhoisM al puto flooder pesado.
  11. n9=  echo 2 -s ¿ F7 4Busca todos los clonos del flooder.
  12. n10=  echo 2 -s ¿ F8 4Kickea al flooder de todos los canales en los que seas Ops.
  13. n11=  echo 2 -s ¿ F9 4Lee todos los msgs durante tu estancia en AwaY. (es decir, con el contestador encendido)
  14. n12=  echo 2 -s ¿ Shift+F1 4Cuando se produce un NetSplit, carga el Take Over Bots en el Server Split, metiΘndolo en un canal especifico.
  15. n13=  echo 2 -s ¿ Shift+F2 4Cuando se produce un NetSplit, sirve para Collidear Nicks.
  16. n14=  echo 2 -s ¿ Shift+F3 4Mira los actuales servers en Split.
  17. n15=  echo 2 -s ¿ Shift+F4 4Sirve para ver como tan las cosas del Scritps.
  18. n16=  echo 2 -s ¿ Shift+F5 4Hecha un ojo a las protecciones que tienes activadas.
  19. n17=  echo 2 -s ¿ Shift+F6 4Activa o desactiva la protecci≤n Anti-Colision.
  20. n18=  echo 2 -s ¿ Shift+F7 4Cambia las protecciones Generales.
  21. n19=  echo 2 -s ¿ Shift+F8 4Cambia la protecci≤n de flood CTCP
  22. n20=  echo 2 -s ¿ Shift+F9 4Cambia la protecci≤n de flood de TEXTO
  23. n21=  echo 2 -s ¿ Shift+F10 4Cambia la protecci≤n de flood de NOTICE
  24. n22=  echo 2 -s ¿ Shift+F11 4Cambia la protecci≤n de flood de INVITE
  25. n23=  echo 2 -s ¿ Shift+F12 4Cambia la protecci≤n DCC
  26. n24=  echo 3 -s ¿================╖╖╖╖╖╖╖╖╖╖╖╖===================╖╖╖╖╖╖╖╖╖╖======================╖╖╖╖╖╖╖╖╖╖╖╖====================¿
  27. n25=}
  28. n26=/start {
  29. n27=  splay start.wav
  30. n28=  echo 15 -s 8,8 mmmmmmmmmmmmmmmmmmmmmm
  31. n29=  echo 2 -s  ::-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,::-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,:
  32. n30=  echo 2 -s ááááááááááááááFrente Aceituneros mIRC Scripts
  33. n31=  echo 6 -s  áááááááSaludos para la pe±a del #15a±eros
  34. n32=  echo 4 -s  ááááááááááááááááPor RomariO     (c) 1997
  35. n33=  echo 2 -s  ::-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,::-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,:-:,:
  36. n34=  echo 15 -s 8,8 mmmmmmmmmmmmmmmmmmmmmm
  37. n35=  .timer16 1 5 splay exorcis.wav
  38. n36=  .timer15 1 5 clear
  39. n37=}
  40. n38=;
  41. n39=;**********//////    TECLAS DE FUNCION    \\\\\\************
  42. n40=;
  43. n41=/f1 { echo 2 ┐Donde has visto una ayuda igual????? Aquφ, todo es superior, 6que lo sepas... | run aceituna.exe }
  44. n42=/f2 /set %texto $$?="┐Texto?" | /tabla | /sombra $$?="┐Color de las letras?" $$?="┐Color del fondo?"
  45. n43=/f3 /hsimbol $$?="Pon el texto"
  46. n44=/f4 /csay $?="┐Que texto quieres colorear?"
  47. n45=/f5 /fk -c
  48. n46=/f6 { .enable #whois | raw -q whois %Var.FlooderNick }
  49. n47=/f7 {
  50. n48=  if (%Var.Flooder == $null) { echo 5 -a No hay ning·n Flodeador para buscar sus Clonos! | halt }
  51. n49=  echo 2 -a  3ñññ Trazando Flodeador %Var.Flooder 3ñññ | set %ahora Si 
  52. n50=  set %quebusco Flooders | set %Total 0 | whoism %Var.Flooder | .enable #buscandoo | who %Ipflooder
  53. n51=}
  54. n52=/f8 /fa -n %Var.Flooder
  55. n53=/f9 /play -c $me $mircdir $+ docs\away.txt 250 | echo 5 -a Viendo los mensages mientras estaba encendido el contestador...
  56. n54=/sf1 /run $mircdir $+ mirc32.exe $mircdir $+ bots\takeover.ini | echo 2 -a Take Over Bot en server en Split 1 ñCargadoñ  4 ïò┼⌐ΩçåⁿnΦ«°ºò¢ | /dde taker command "" /server %Var.Split $$?="┐Puerto? (ej.: 6667)" | dde taker command "" /set %Channel $?="┐Auto entrar a alg·n canal...a cual?"
  57. n55=/sf2 /colide
  58. n56=/sf3 /run docs\split.txt
  59. n57=/sf4 /.play -ctESTADO $me $mircdir $+ docs\estadis.ini 0
  60. n58=/sf5 /.play -ctPROTECCION $me $mircdir $+ docs\estadis.ini 0
  61. n59=/sf6 {
  62. n60=  if (%anticoli == On) { .disable #anti-colision | set %anticoli Off | echo 6 -a Protecci≤n Anti Colision Desactivada | halt }
  63. n61=  if (%anticoli == Off) { .enable #anti-colision | set %anticoli On | echo 6 -a Protecci≤n Anti Colision Activada | halt }
  64. n62=}
  65. n63=/sf7 {
  66. n64=  if (%ProtTotal == 1) { 
  67. n65=    set %Var.ProtCtcp High | set %ProNotice Alta | set %ProInvite Alta | set %Var.ProtText High | set %Var.ProtDCC On
  68. n66=    echo 1 ùùùùùùùùùùùùùùùù
  69. n67=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  70. n68=    echo 1 ùùùùùùùùùùùùùùùù 
  71. n69=    echo 2 Protecci≤n CTCP: 1ñAltañ 
  72. n70=    echo 2 Protecci≤n de TEXTO: 1ñAltañ 
  73. n71=    echo 2 Protecci≤n NOTICE: 1ñAltañ 
  74. n72=    echo 2 Protecci≤n INVITE: 1ñAltañ 
  75. n73=    echo 2 Protecci≤n DCC: 1ñOnñ 
  76. n74=    echo 1 ùùùùùùùùùùùùùùùù | set %ProtTotal 2
  77. n75=    echo 6 Protecci≤n Anti Colision Activada | set %anticoli on | /.enable #anti-colision | halt
  78. n76=  }
  79. n77=  if (%ProtTotal == 2) { 
  80. n78=    set %Var.ProtCtcp Normal | set %ProNotice Normal | set %ProInvite Normal | set %Var.ProtText Normal | set %Var.ProtDcc On 
  81. n79=    echo 1 ùùùùùùùùùùùùùùùù 
  82. n80=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  83. n81=    echo 1 ùùùùùùùùùùùùùùùù 
  84. n82=    echo 2 Protecci≤n CTCP: 1ñNormalñ 
  85. n83=    echo 2 Protecci≤n de TEXTO: 1ñNormalñ 
  86. n84=    echo 2 Protecci≤n NOTICE: 1ñNormalñ 
  87. n85=    echo 2 Protecci≤n INVITE: 1ñNormalñ 
  88. n86=    echo 2 Protection DCC: 1ñOnñ 
  89. n87=    echo 1 ùùùùùùùùùùùùùùùù | set %ProtTotal 3
  90. n88=    echo 6 Protecci≤n Anti Colision Activada | set %anticoli on | /.enable #anti-colision | /halt 
  91. n89=  }
  92. n90=  if (%ProtTotal == 3) { 
  93. n91=    set %Var.ProtCtcp Off | set %ProNotice Off | set %ProInvite Normal | set %Var.ProtText Off | set %Var.ProtDcc Off 
  94. n92=    echo 1 ùùùùùùùùùùùùùùùù 
  95. n93=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  96. n94=    echo 1 ùùùùùùùùùùùùùùùù 
  97. n95=    echo 2 Protecci≤n CTCP: 1ñOffñ 
  98. n96=    echo 2 Protecci≤n de TEXTO: 1ñOffñ 
  99. n97=    echo 2 Protecci≤n NOTICE: 1ñOffñ 
  100. n98=    echo 2 Protecci≤n INVITE: 1ñOffñ 
  101. n99=    echo 2 Protecci≤n DCC: 1ñOffñ 
  102. n100=    echo 1 ùùùùùùùùùùùùùùùù  | set %ProtTotal 1 
  103. n101=  echo 6 Protecci≤n Anti Colision Desactivada | set %anticoli off | /.disable #anti-colision | /halt }
  104. n102=}
  105. n103=/sf8 {
  106. n104=  if (%ProtCTCP == 1) { 
  107. n105=    set %Var.ProtCtcp High 
  108. n106=    echo 1 ùùùùùùùùùùùùùùùù 
  109. n107=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  110. n108=    echo 1 ùùùùùùùùùùùùùùùù 
  111. n109=    echo 2 Protecci≤n CTCP: 1ñAltañ 
  112. n110=  echo 1 ùùùùùùùùùùùùùùùù  | set %ProtCTCP 2 | halt }
  113. n111=  if (%ProtCTCP == 2) {
  114. n112=    set %Var.ProtCtcp Normal 
  115. n113=    echo 1 ùùùùùùùùùùùùùùùù 
  116. n114=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  117. n115=    echo 1 ùùùùùùùùùùùùùùùù 
  118. n116=    echo 2 Protecci≤n CTCP: 1ñNormalñ 
  119. n117=  echo 1 ùùùùùùùùùùùùùùùù | set %ProtCTCP 3 | halt }
  120. n118=  if (%ProtCTCP == 3) { 
  121. n119=    set %Var.ProtCtcp Off 
  122. n120=    echo 1 ùùùùùùùùùùùùùùùù 
  123. n121=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  124. n122=    echo 1 ùùùùùùùùùùùùùùùù 
  125. n123=    echo 2 Protecci≤n CTCP: 1ñOffñ 
  126. n124=  echo 1 ùùùùùùùùùùùùùùùù | set %ProtCTCP 1 | halt }
  127. n125=}
  128. n126=/sf9 {
  129. n127=  if (%ProtTexto == 1) {
  130. n128=    set %Var.ProtText High 
  131. n129=    echo 1 ùùùùùùùùùùùùùùùù 
  132. n130=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  133. n131=    echo 1 ùùùùùùùùùùùùùùùù 
  134. n132=    echo 2 Protecci≤n de TEXTO: 1ñAltañ 
  135. n133=  echo 1 ùùùùùùùùùùùùùùùù  | set %ProtTexto 2 | halt }
  136. n134=  if (%ProtTexto == 2) {
  137. n135=    set %Var.ProtText Normal
  138. n136=    echo 1 ùùùùùùùùùùùùùùùù 
  139. n137=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  140. n138=    echo 1 ùùùùùùùùùùùùùùùù 
  141. n139=    echo 2 Protecci≤n de TEXTO: 1ñNormalñ 
  142. n140=  echo 1 ùùùùùùùùùùùùùùùù  | set %ProtTexto 3 | halt }
  143. n141=  if (%ProtTexto == 3) { 
  144. n142=    set %Var.ProtText Off
  145. n143=    echo 1 ùùùùùùùùùùùùùùùù 
  146. n144=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  147. n145=    echo 1 ùùùùùùùùùùùùùùùù 
  148. n146=    echo 2 Protecci≤n de TEXTO: 1ñOffñ 
  149. n147=  echo 1 ùùùùùùùùùùùùùùùù | set %ProtTexto 1 | halt }
  150. n148=}
  151. n149=/sf10 {
  152. n150=  if (%ProtNotice == 1) {
  153. n151=    set %ProNotice Alta
  154. n152=    echo 1 ùùùùùùùùùùùùùùùù 
  155. n153=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  156. n154=    echo 1 ùùùùùùùùùùùùùùùù 
  157. n155=    echo 2 Protecci≤n NOTICE: 1ñAltañ 
  158. n156=  echo 1 ùùùùùùùùùùùùùùùù  | set %ProtNotice 2 | halt }
  159. n157=  if (%ProtNotice == 2) {
  160. n158=    set %ProNotice Normal
  161. n159=    echo 1 ùùùùùùùùùùùùùùùù 
  162. n160=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  163. n161=    echo 1 ùùùùùùùùùùùùùùùù 
  164. n162=    echo 2 Protecci≤n NOTICE: 1ñNormalñ 
  165. n163=  echo 1 ùùùùùùùùùùùùùùùù  | set %ProtNotice 3 | halt }
  166. n164=  if (%ProtNotice == 3) { 
  167. n165=    set %ProNotice Off
  168. n166=    echo 1 ùùùùùùùùùùùùùùùù 
  169. n167=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  170. n168=    echo 1 ùùùùùùùùùùùùùùùù 
  171. n169=    echo 2 Protecci≤n NOTICE: 1ñOffñ 
  172. n170=  echo 1 ùùùùùùùùùùùùùùùù | set %ProtNotice 1 | halt }
  173. n171=}
  174. n172=/sf11 {
  175. n173=  if (%ProtInvite == 1) {
  176. n174=    set %ProInvite Alta
  177. n175=    echo 1 ùùùùùùùùùùùùùùùù 
  178. n176=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  179. n177=    echo 1 ùùùùùùùùùùùùùùùù 
  180. n178=    echo 2 Protecci≤n INVITE: 1ñAltañ 
  181. n179=  echo 1 ùùùùùùùùùùùùùùùù  | set %Protinvite 2 | halt }
  182. n180=  if (%ProtInvite == 2) {
  183. n181=    set %ProInvite Normal
  184. n182=    echo 1 ùùùùùùùùùùùùùùùù 
  185. n183=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  186. n184=    echo 1 ùùùùùùùùùùùùùùùù 
  187. n185=    echo 2 Protecci≤n INVITE: 1ñNormalñ 
  188. n186=  echo 1 ùùùùùùùùùùùùùùùù  | set %Protinvite 3 | halt }
  189. n187=  if (%ProtInvite == 3) { 
  190. n188=    set %ProInvite Off
  191. n189=    echo 1 ùùùùùùùùùùùùùùùù 
  192. n190=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  193. n191=    echo 1 ùùùùùùùùùùùùùùùù 
  194. n192=    echo 2 Protecci≤n INVITE: 1ñOffñ 
  195. n193=  echo 1 ùùùùùùùùùùùùùùùù | set %ProtInvite 1 | halt }
  196. n194=}
  197. n195=/sf12 {
  198. n196=  if (%ProtDCC == 1) {
  199. n197=    set %Var.ProtDCC On 
  200. n198=    echo 1 ùùùùùùùùùùùùùùùù 
  201. n199=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  202. n200=    echo 1 ùùùùùùùùùùùùùùùù 
  203. n201=    echo 2 Protecci≤n DCC: 1ñOnñ 
  204. n202=  echo 1 ùùùùùùùùùùùùùùùù  | set %ProtDCC 2 | halt }
  205. n203=  if (%ProtDCC == 2) {
  206. n204=    set %Var.ProtDCC Off 
  207. n205=    echo 1 ùùùùùùùùùùùùùùùù 
  208. n206=    echo 4 (4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Protecci≤n Vs Flood) 
  209. n207=    echo 1 ùùùùùùùùùùùùùùùù 
  210. n208=    echo 2 Protecci≤n DCC: 1ñOffñ
  211. n209=  echo 1 ùùùùùùùùùùùùùùùù  | set %ProtDCC 1 | halt }
  212. n210=}
  213. n211=;
  214. n212=;**********//////    DEMAS ALIASES    \\\\\\************
  215. n213=;
  216. n214=/cpc /.play -ctCANAL $me $mircdir $+ docs\estadis.ini 0
  217. n215=/clu /.play -ctLISTAUSU $me $mircdir $+ docs\estadis.ini 0
  218. n216=/cpr /.play -ctPROGRAMAS $me $mircdir $+ docs\estadis.ini 0
  219. n217=/colide {
  220. n218=  :start
  221. n219=  set %Var.Temp $$?="┐Cußntos NCBs? Mßximo 3"
  222. n220=  if (%Var.Temp == 1) { 
  223. n221=    run $mircdir $+ mirc32.exe $mircdir $+ bots\ncb1.ini | /dde ncb1 command "" /nick $$?="┐Nick para para la colisi≤n'" 
  224. n222=    dde ncb1 command "" /server %Var.Split $$?="┐Puerto para el NCB?" | echo 2 -a Collideando Nick sobre: 1 %Var.Split     4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  225. n223=    halt
  226. n224=  }
  227. n225=  if (%Var.Temp == 2) { 
  228. n226=    run $mircdir $+ mirc32.exe $mircdir $+ bots\ncb1.ini | /dde ncb1 command "" /nick $$?="┐Nick para la colisi≤n?" 
  229. n227=    run $mircdir $+ mirc32.exe $mircdir $+ bots\ncb2.ini | /dde ncb2 command "" /nick $$?="┐Nick para la colisi≤n?" 
  230. n228=    dde ncb1 command "" /server %Var.Split $$?="┐Puerto para el NCB?" | dde ncb2 command "" /server %Var.Split $! | echo 2 -a Collideando Nick sobre:1 %Var.Split  4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  231. n229=    halt
  232. n230=  }
  233. n231=  if (%Var.Temp == 3) { 
  234. n232=    run $mircdir $+ mirc32.exe $mircdir $+ bots\ncb1.ini | /dde ncb1 command "" /nick $$?="┐Nick para la colisi≤n?" 
  235. n233=    run $mircdir $+ mirc32.exe $mircdir $+ bots\ncb2.ini | /dde ncb2 command "" /nick $$?="┐Nick para la colisi≤n?"
  236. n234=    run $mircdir $+ mirc32.exe $mircdir $+ bots\ncb3.ini | /dde ncb3 command "" /nick $$?="┐Nick para la colisi≤n?" 
  237. n235=    dde ncb1 command "" /server %Var.Split $$?="┐Puerto para el NCB?" | dde ncb2 command "" /server %Var.Split $! | dde ncb3 command "" /server %Var.Split $! | echo 2 -a Collideando Nick sobre:1 %Var.Split  4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  238. n236=    halt
  239. n237=  }
  240. n238=  else { goto start }
  241. n239=}
  242. n240=
  243. n241=/ltake /run $mircdir $+ mirc32.exe $mircdir $+ bots\takeover.ini | echo 2 -a Take Over Bot1 ñCargadoñ  4 ïò┼⌐ΩçåⁿnΦ«°ºò¢
  244. n242=/autoentrar {
  245. n243=  if (%quevoy == On) { goto autoentrar1 }
  246. n244=  if (%auto.entrar == On) { goto autoentrar1 }
  247. n245=  else goto fin
  248. n246=  :autoentrar1
  249. n247=  unset %quevoy
  250. n248=  if (%auto.entrar1 == $null)  { goto fin }
  251. n249=  else { join %auto.entrar1 | goto autoentrar2 }
  252. n250=  :autoentrar2
  253. n251=  if (%auto.entrar2 == $null) { goto completado }
  254. n252=  else { join %auto.entrar2 | goto autoentrar3 }
  255. n253=  :autoentrar3
  256. n254=  if (%auto.entrar3 == $null) { goto completado }
  257. n255=  else { join %auto.entrar3 | goto autoentrar4 }
  258. n256=  :autoentrar4
  259. n257=  if (%auto.entrar4 == $null) { goto completado }
  260. n258=  else { join %auto.entrar4 | goto autoentrar5 }
  261. n259=  :autoentrar5
  262. n260=  if (%auto.entrar5 == $null) { goto completado }
  263. n261=  else { join %auto.entrar5 | goto autoentrar6 }
  264. n262=  :autoentrar6
  265. n263=  if (%auto.entrar6 == $null) { goto completado }
  266. n264=  else { join %auto.entrar6 | goto autoentrar7  }
  267. n265=  :autoentrar7
  268. n266=  if (%auto.entrar7 == $null) { goto completado }
  269. n267=  else { join %auto.entrar7 | goto autoentrar8 }
  270. n268=  :autoentrar8
  271. n269=  if (%auto.entrar8 == $null) { goto completado }
  272. n270=  else { join %auto.entrar8 | goto autoentrar9 }
  273. n271=  :autoentrar9
  274. n272=  if (%auto.entrar9 == $null) { goto completado }
  275. n273=  else { join %auto.entrar9 | goto autoentrar10 }
  276. n274=  :autoentrar10
  277. n275=  if (%auto.entrar10 == $null) { goto completado }
  278. n276=  else { join %auto.entrar10 | goto completado }
  279. n277=  :completado
  280. n278=  echo 6 -a Auto-Entrar Completado.
  281. n279=  :fin
  282. n280=  echo 1 -
  283. n281=}
  284. n282=/netbarras /.play -ctNETSPLIT $me $mircdir $+ docs\barras.txt 5
  285. n283=/floodbarras /.play -ctFLOOD $me $mircdir $+ docs\barras.txt 5
  286. n284=/publi /me usa 4ïòâ«únåΩ ┼⌐ΩçåⁿnΦ«°ºò¢ 6la v1.5 Que lo sepan...  5www.arrakis.es/~familia/frente.htm
  287. n285=/apubli /ame usa 4ïòâ«únåΩ ┼⌐ΩçåⁿnΦ«°ºò¢ 6la v1.5 Que lo sepan...  5www.arrakis.es/~familia/frente.htm
  288. n286=/hop /part # | /raw -q join #
  289. n287=/i /invite $$1 #
  290. n288=/d /raw -q mode # -oooooo *1
  291. n289=/b /mode # +b *1
  292. n290=/a /say  $+ $chr(91) $+  $+  $+ $$1 $+  $+  $+ $chr(93) $+  $+ : *2
  293. n291=/w /onotice  $+ $chr(91) $+  $+ Ops $+ / $+ # $+  $+ $chr(93) $+  *1
  294. n292=/whoisM { .enable #whois.nick | whois *1 }
  295. n293=/whoisz { .enable #whoisz | whois *1 }
  296. n294=/join /.enable #J.canal | /raw -q join *1 
  297. n295=/j /.enable #J.canal | /raw -q join *1 
  298. n296=/ftp {
  299. n297=  amsg %logo : 2Servidor FTP 6 %ftpsite . Os lo recomiedo. 
  300. n298=  amsg %logo : 4Login/PassWord: %ftplogin $+ / $+ %ftppass - 4Ratio: %ftpratio
  301. n299=  amsg %logo : 6 %ftpcontenido 
  302. n300=}
  303. n301=/mftp {
  304. n302=  amsg %logo : 2Mi Servidor FTP 6 $ip  estß Activado
  305. n303=  amsg %logo : 4Login/PassWord: %mftplogin $+ / $+ %ftppass - 4Ratio: %mftpratio
  306. n304=  amsg %logo : 6 %mftpcontenido 
  307. n305=}
  308. n306=/votaciones {
  309. n307=  msg %votac  2**// 5ReFeRenDuM Bot 3para el  4ïòâ«únåΩ ┼⌐ΩçåⁿnΦ«°ºò¢2 \\**
  310. n308=  msg %votac %logo 2Pregunta 4 %votapr
  311. n309=  msg %votac %logo 2Si estßs de acuerdo pon /CTCP $me SI
  312. n310=  msg %votac %logo 2Si no estßs de acuerdo pon /CTCP $me NO
  313. n311=}
  314. n312=/fserver {
  315. n313=  amsg %logo : 4File Server con  %contenido  y  %fservcred  bytes de crΘdito
  316. n314=  amsg %logo : 4Para entrar, escribe:  $+ %fservcom $+  - Ratio : 1/ $+ %fservratio $+ 
  317. n315=}
  318. n316=/miweb {
  319. n317=  amsg %logo : 2Os recomiendo que visitΘis 6 %umiweb 
  320. n318=  amsg %logo : 2 %cmiweb
  321. n319=}
  322. n320=/desban { 
  323. n321=  if (% [ $+ [ $$1 [ $+ ban ] ] ] == $null) { echo 6 -a %logo $$1 no estß baneado de mi FServer. } 
  324. n322=  else { .ruser fban $$1 $+ ! | /unset % [ $+ [ $$1 [ $+ ban ] ] ] |  not $$1 %logo : Has sido desbaneado de mi FServer. Ahora podrßs entrar. }
  325. n323=}
  326. n324=/quitargratis {
  327. n325=  if (% [ $+ [ $$1 [ $+ leech ] ] ] == $null) { echo 6 -a %logo $$1 no tiene acceso gratis. } 
  328. n326=  else { /unset % [ $+ [ $$1 [ $+ leech ] ] ] |  /not $$1 %logo Has perdido el acceso completo a mi FServer. }
  329. n327=}
  330. n328=/not notice $1 *2
  331. n329=/empezar { 
  332. n330=  .load -pq popups.ini | .load -pc popups.ini | .load -pn popups2.ini | .load -pm popups.ini | .load -ps popups.ini
  333. n331=  set %autoVer Off | set %Var.Hrs 0 | set %Var.Mins 0 | set %Var.Victimas 0 | set %Group.AutoTakeover Off | unset %Var.Flooder | unset %Ctcp.* | unset %Text.* | unset %mode.* | .disable #chanmode | set %modepr Off | .disable #noplusop | unset %opschan | set %opsch Off
  334. n332=  .rlevel 33 | .rlevel 100 | .guser -a 100 $me 2 | .ddeserver on Romario | /.sreq ask | set %referendum Off | .disable #dices | set %dicese Off | .disable #autodeop | set %Group.AutoTakeover Off | set %fkp Off | set %mtxtla Off | .disable #mtxtl | .disable #camatxt | set %rptkick Off
  335. n333=  .disable  #referendum | .disable #autovisor |.disable #fserve | .disable #busco.ircop | .disable #esta.canal | .disable #buscandoo | .disable #whois.nick | .disable #kick.canal | unset %fkccanal | .disable #jkcanal | set %fkcanal Off | .disable #kpalabra
  336. n334=}
  337. n335=/siono {
  338. n336=  set %Var.Temp $$?=" [ $+ [ *1 ] [ $+ [ (s/n) ] ] ] " | set %Var.Temp $left(1,%Var.Temp)
  339. n337=  if ($upper(%Var.Temp) == S) { return 1 } | else { return 0 }
  340. n338=}
  341. n339=
  342. n340=/busclonos {
  343. n341=  whoism %Busclonos | echo 2 -a  3ñññ Buscando Clonos visibles de  %Busclonos 3ñññ
  344. n342=  set %quebusco Clonos | set %Total 0 | .enable #buscandoo | who %Busclonosip
  345. n343=}
  346. n344=/desync1 /raw -q mode # +bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  347. n345=/desync2 /raw -q mode # -bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o* 
  348. n346=/bb {
  349. n347=  raw -q mode # +bbbbbb +@+. +@+. +@+. +@+. +@+. +@.+.
  350. n348=  raw -q mode # +bbbbbb ++@+-. +-@+. +-@+. +@-+.- +-@+.+ ++@+.+.
  351. n349=  raw -q mode # +bbbbbb ++@++. ++@++. ++@+.+ ++@++. ++@+. .++@..+
  352. n350=  raw -q mode # +bbbbbb -++@+++. +++@++. +++@+.+ ++@+++. +++@-+. .++@-..+
  353. n351=}
  354. n352=/nuke {
  355. n353=  if (%Nuker == U) { .enable #u.nuke | whois $$1 | halt }
  356. n354=  if (%Nuker == I) { .enable #i.nuke | whois $$1 | halt }
  357. n355=}
  358. n356=/md {
  359. n357=  set %Var.Chan $chan
  360. n358=  set %i 1
  361. n359=  set %Var.Index 1
  362. n360=  if (s isin $1) { set %Var.Safe $$2 }
  363. n361=  if (t isin $1) { set %Var.Take s }
  364. n362=  if (undernet isin $server) { set %Var.Num 6 }
  365. n363=  else { set %Var.Num 4 }
  366. n364=  :start
  367. n365=  set %Var.User $opnick(%i,%Var.Chan)
  368. n366=  if (%Var.User == $null) { 
  369. n367=    raw -q mode %Var.Chan -oooooo %Var.Nick 
  370. n368=    if (%Var.Take == s) { /mode # +smpti | /topic %Var.Chan 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ http://www.arrakis.es/~familia/frente.htm  4ïò┼⌐ΩçåⁿnΦ«°ºò¢ }
  371. n369=    if (s isin $1) { raw -q mode # +o %Var.Safe }
  372. n370=    echo 6 # Mass Deop sobre # Completado! 
  373. n371=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt 
  374. n372=  }
  375. n373=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
  376. n374=  if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
  377. n375=  inc %i 1 
  378. n376=  goto start
  379. n377=}  
  380. n378=/tkf {
  381. n379=  set %Var.Chan $chan
  382. n380=  set %i 1
  383. n381=  set %Var.Index 1
  384. n382=  if (s isin $1) { set %Var.Safe $$2 }
  385. n383=  if (t isin $1) { set %Var.Take s }
  386. n384=  if (undernet isin $server) { set %Var.Num 6 }
  387. n385=  else { set %Var.Num 4 }
  388. n386=  :start
  389. n387=  set %Var.User $opnick(%i,%Var.Chan)
  390. n388=  if (%Var.User == $null) { 
  391. n389=    raw -q mode %Var.Chan -oooooo %Var.Nick 
  392. n390=    if (%Var.Take == s) { /mode # +mt | /topic %Var.Chan 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ Take /***\ oveR  4ïò┼⌐ΩçåⁿnΦ«°ºò¢ }
  393. n391=    if (s isin $1) { raw -q mode # +o %Var.Safe }
  394. n392=    echo 6 # Mass Deop sobre # Completado! 
  395. n393=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt 
  396. n394=  }
  397. n395=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
  398. n396=  if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
  399. n397=  inc %i 1 
  400. n398=  goto start
  401. n399=}
  402. n400=/mk {
  403. n401=  set %i 1
  404. n402=  set %Var.Int 1
  405. n403=  :start
  406. n404=  set %Var.Nick $nick(%i,#)
  407. n405=  if (%Var.Nick == $null) { echo 6 # Mass Kick sobre # Completado! | unset %i | unset %Var.Nick | unset %Var.int | halt }
  408. n406=  if (%Var.Nick != $me) { kick # %Var.Nick Mass Kick! N·mero: %Var.Int | inc %Var.int 1 }
  409. n407=  inc %i 1  
  410. n408=  goto start  
  411. n409=}
  412. n410=/mb {
  413. n411=  set %i 1
  414. n412=  :start
  415. n413=  set %Var.Nick $nick(%i,#)
  416. n414=  if (%Var.Nick == $null) { echo 6 # Mass Ban sobre # Completado! | unset %i | unset %Var.Nick | halt }
  417. n415=  if (%Var.Nick != $me) { ban # %Var.Nick 3 }
  418. n416=  inc %i 1  
  419. n417=  goto start  
  420. n418=}
  421. n419=/fa {
  422. n420=  set %i 1
  423. n421=  set %Var.Index 1
  424. n422=  if ($1 == -b) { set %Var.Ban s }
  425. n423=  if ($1 == -n) { set %Var.Ban n }
  426. n424=  :start
  427. n425=  if ($chan(%Var.Index) == $null) { echo 6 -a Kickeado 1 $$2 de todos los canales. | unset %Var.Ban | unset %i | unset %Var.Nick | unset %Var.Chan | unset %Var.Add | unset %Var.Index | halt }
  428. n426=  if ($me !isop $chan(%Var.Index)) { inc %Var.Index 1 | goto start }
  429. n427=  set %Var.Chan $chan(%Var.Index)
  430. n428=  set %i 1
  431. n429=  :Start.Chan
  432. n430=  if ($nick(%i,%Var.Chan) == $null) { inc %Var.Index 1 | goto start }
  433. n431=  set %Var.Nick $nick(%i,%Var.Chan)
  434. n432=  set %Var.Add $address(%Var.Nick,2)
  435. n433=  if ($$2 isin %Var.Add) || ($$2 iswm %Var.Add) || ($$2 == %Var.Add) { 
  436. n434=    if (%Var.Ban == s) { ban %Var.Chan %Var.Nick 2 }
  437. n435=    kick %Var.Chan %Var.Nick íKick al Flodeador! - $$2 4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  438. n436=  }     
  439. n437=  inc %i 1 | goto Start.Chan
  440. n438=}
  441. n439=/buscaip {
  442. n440=  if ($1 == $null) { set %IPScan.Address $$?="Pon las IPs" } | else { set %IPScan.Address $1 }
  443. n441=  echo 2 # 3ñññ IP Scaneando: 1 # en:  %IPScan.Address  3ñññ | set %Var.Index 1 | set %IPScan.Index 0
  444. n442=  :scan
  445. n443=  set %Var.Temp $nick(%Var.Index,#) | if (%Var.Temp == $null) { goto end }
  446. n444=  set %Var.Temp $address(%Var.Temp,2)
  447. n445=  if (%IPScan.Address == %Var.Temp) { goto found }
  448. n446=  if (%IPScan.Address isin %Var.Temp) { goto found }
  449. n447=  if (%IPScan.Address iswm %Var.Temp) { goto found }
  450. n448=  inc %Var.Index | goto scan
  451. n449=  :found
  452. n450=  inc %IPScan.Index | echo 2 # 6 %IPScan.Index $+ . $nick(%Var.Index,#) 6(1 $+ %Var.Temp $+ 6)
  453. n451=  inc %Var.Index | goto scan
  454. n452=  :end
  455. n453=  echo 2 # 3ñññ Fin de la b·squeda! Total: %IPScan.Index 3ñññ | unset %IPScan.*
  456. n454=}
  457. n455=/buscaclonos {
  458. n456=  set %Var.Index 1
  459. n457=  echo 2 # 3ñññ B·squeda de Clonos:1 # 3ñññ
  460. n458=  :adduser
  461. n459=  set %Var.Temp $address($nick(%Var.Index,#),2)
  462. n460=  if (%Var.Temp == $null) { set %Var.Index 1 | goto listclones }
  463. n461=  if ([ %Address. [ $+ [ %Var.Temp ] ] ] == $null) {
  464. n462=    set %Address. [ $+ [ %Var.Temp ] ] $nick(%Var.Index,#) | inc %Var.Index | goto adduser
  465. n463=  }
  466. n464=  if ([ %Address. [ $+ [ %Var.Temp ] ] ] != $null) {
  467. n465=    set %Address. $+ %Var.Temp [ %Address. [ $+ [ %Var.Temp ] ] ] 1--> $nick(%Var.Index,#)
  468. n466=    if ($findtok(%Clone.List,%Var.Temp,32) == $null) { set %Clone.List [ %Clone.List ] %Var.Temp }
  469. n467=    inc %Var.Index | goto adduser
  470. n468=  }
  471. n469=  :listclones
  472. n470=  set %Var.Temp $gettok(%Clone.List,%Var.Index,32) | if (%Var.Temp == $null) { goto end }
  473. n471=  echo 2 # 6 %Var.Index $+ . [ %Address. [ $+ [ %Var.Temp ] ] ] 6(1 $+ %Var.Temp $+ 6)
  474. n472=  inc %Var.Index | goto listclones
  475. n473=  :end
  476. n474=  dec %Var.Index | unset %Address.* | unset %Clone.List
  477. n475=  echo 2 # 3ñññ Fin de la b·squeda! Total: %Var.Index 3ñññ
  478. n476=}
  479. n477=/scancanal {
  480. n478=  set %CTotal 0 | unset %CAddress | set %CClonos 0 | set %CIRCops 0 | set %COps 0
  481. n479=  set %CNOps 0 | set %CVoice 0 | set %CNVoice 0 | set %CAway 0 | set %CAqui 0
  482. n480=  .enable #esta.canal | who #
  483. n481=}
  484. n482=/buscaircop {
  485. n483=  if ($$1 == -c) {
  486. n484=    echo 2 -a 3ñññ Buscando IRCop en # 3ñññ 
  487. n485=    set %Total 0 | .enable #busco.ircop | who * o
  488. n486=  }
  489. n487=  if ($$1 == -r) {
  490. n488=    echo 2 -a 3ñññ Buscando IRCop en toda la Red 3ñññ 
  491. n489=    set %Total 0 | .enable #busco.IRCop | who 0 o
  492. n490=  }
  493. n491=}
  494. n492=/fk {
  495. n493=  if (# == $null) { halt }
  496. n494=  if ($1 == -c) {
  497. n495=    set %Filter.Ops $siono(┐Incluir Ops en el filter?) | set %Filter.Ban $siono(┐Banear?) | set %Var.Index 1
  498. n496=    :adduser
  499. n497=    set %Var.Temp $address($nick(%Var.Index,#),2)
  500. n498=    if (%Var.Temp == $null) { set %Var.Index 1 | goto getclones }
  501. n499=    if ([ %Address. [ $+ [ %Var.Temp ] ] ] == $null) {
  502. n500=      set %Address. [ $+ [ %Var.Temp ] ] $nick(%Var.Index,#) | inc %Var.Index | goto adduser
  503. n501=    }
  504. n502=    if ([ %Address. [ $+ [ %Var.Temp ] ] ] != $null) {
  505. n503=      set %Address. $+ %Var.Temp [ %Address. [ $+ [ %Var.Temp ] ] ] $nick(%Var.Index,#)
  506. n504=      if ($findtok(%Clone.List,%Var.Temp,32) == $null) { set %Clone.List %Clone.List %Var.Temp }
  507. n505=      inc %Var.Index | goto adduser
  508. n506=    }
  509. n507=    :getclones
  510. n508=    set %Var.Temp $gettok(%Clone.List,%Var.Index,32) | if (%Var.Temp == $null) { goto end }
  511. n509=    set %Clone.Address %Address. [ $+ [ %Var.Temp ] ] | set %Var.Clones 1
  512. n510=    :kickclones
  513. n511=    set %Clone.Nick $gettok(%Clone.Address,%Var.Clones,32)
  514. n512=    if (%Clone.Nick != $null) {
  515. n513=      if ((%Filter.Ops == 0) && (%Clone.Nick isop #)) { inc %Var.Clones | goto kickclones }
  516. n514=      if (%Filter.Ban == 1) { mode # +b $address(%Clone.Nick,2) }
  517. n515=      kick # %Clone.Nick No Clonos %Var.Temp 4ïò┼⌐ΩçåⁿnΦ«°ºò¢ | inc %Var.Clones | goto kickclones
  518. n516=    }
  519. n517=    inc %Var.Index | goto getclones
  520. n518=    :end
  521. n519=    unset %Clone* | unset %Address.* | unset %Filter.* | unset %Var.Clones | dec %Var.Index
  522. n520=    echo 2 # Kickear Clonos Completado 1 ñ $+ %Var.Index $+ ñ 4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  523. n521=    echo 6 # Si hay clonos no kickeados es porque no eres Ops o porque no hay los suficientes
  524. n522=    echo 6 # clonos como has indicado en la protecci≤n al canal.
  525. n523=  }
  526. n524=  if ($1 == -i) {  
  527. n525=    if ($2 == $null) { set %Filter.Ops $siono┐Incluir ops en el filter?) } | else { set %Filter.Ops $2 }
  528. n526=    if ($3 == $null) { set %Filter.Ban $siono(┐Banear?) } | else { set %Filter.Ban $3 }
  529. n527=    if ($4 == $null) { set %Filter.IP $$?="┐IP a escanear?" } | else { set %Filter.IP $4 }
  530. n528=    set %Var.Index 1 | set %Filter.Index 0
  531. n529=    :scan
  532. n530=    set %Var.Temp $nick(%Var.Index,#) | if (%Var.Temp == $null) { goto end }
  533. n531=    set %Var.Temp $address(%Var.Temp,2)
  534. n532=    if (%Filter.IP == %Var.Temp) { goto found }
  535. n533=    if (%Filter.IP isin %Var.Temp) { goto found }
  536. n534=    if (%Filter.IP iswm %Var.Temp) { goto found }
  537. n535=    inc %Var.Index | goto scan
  538. n536=    :found
  539. n537=    if ($nick(%Var.Index,#) == $me) { inc %Var.Index | goto scan }
  540. n538=    if ((%Filter.Ops == 0) && ($nick(%Var.Index,#) isop #)) { inc %Var.Index | goto scan }
  541. n539=    if ((%Filter.Ops == 1) && ($nick(%Var.Index,#) isop #)) {
  542. n540=      if (%Filter.Ban == 1) { mode # +b %Var.Temp }
  543. n541=      kick # $nick(%Var.Index,#) 2IP encontrada1 %Filter.IP 4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  544. n542=      inc %Filter.Index | inc %Var.Index | goto scan
  545. n543=    }
  546. n544=    if (%Filter.Ban == 1) { mode # +b %Var.Temp }
  547. n545=    kick # $nick(%Var.Index,#) 2IP Encontrada1 %Filter.IP 4ïò┼⌐ΩçåⁿnΦ«°ºò¢
  548. n546=    inc %Filter.Index | inc %Var.Index | goto scan
  549. n547=    :end
  550. n548=    echo 2 # Kickear IP Complatado1 ñ $+ %Filter.Index $+ ñ  4ïò┼⌐ΩçåⁿnΦ«°ºò¢ | unset %Filter.*
  551. n549=  }
  552. n550=}
  553. n551=/alarma {
  554. n552=  floodbarras
  555. n553=  splay bomba.wav
  556. n554=  echo -
  557. n555=  echo 1 -s /**************************************************\
  558. n556=  echo 1 -s 8,4 PROTECCION DE FLOOD 4,0ïò┼⌐ΩçåⁿnΦ«°ºò¢
  559. n557=  echo 1 -s ùùùùùùùùùùùùùùùùùùùù
  560. n558=  echo 2 -s 1ñTipo de Flood 1ñ 3 *3
  561. n559=  echo 2 -s 1ñNick 1ñ3  $$1
  562. n560=  echo 2 -s 1ñDirecci≤n 1ñ3 ( $+ $$2 $+ ) 
  563. n561=  echo 1 -s ùùùùùùùùùùùùùùùùùùùù
  564. n562=  echo 2 -s 1ñPulsa F6 para ver "QuiΘn es".
  565. n563=  echo 2 -s 1ñPulsa F7 para trazar su IP o direcci≤n.
  566. n564=  echo 2 -s 1ñPulsa F8 para kickearlo de todos los canales.
  567. n565=  echo 1 -s ùùùùùùùùùùùùùùùùùùùù
  568. n566=  echo 1 -s \**************************************************/
  569. n567=  echo -
  570. n568=  set %Var.FlooderNick $$1
  571. n569=  if (%Kickalflode == On) { fa -n %Var.Flooder }
  572. n570=  if (%Banalflode == On) { fa -b %Var.Flooder }
  573. n571=}
  574.